program programa;
aspect 
	aspecto1
	begin
		writeln("Aspecto!")
	end;
	before proc1 : aspecto1;
begin	
end .
